extern int xerctl_(integer *messg1, integer *nmessg, integer *nerr, integer *level, integer *kontrl);
